Specify the tissue of interest, run the boilerplate code which sets up the functions and environment, load the tissue object.
tissue_of_interest = "Pancreas"
library(here)
here() starts at /home/rstudio/tabula-muris
source(here("00_data_ingest", "02_tissue_analysis_rmd", "boilerplate.R"))
Loading required package: ggplot2
Loading required package: cowplot
Attaching package: 'cowplot'
The following object is masked from 'package:ggplot2':
ggsave
Loading required package: Matrix
Attaching package: 'dplyr'
The following objects are masked from 'package:stats':
filter, lag
The following objects are masked from 'package:base':
intersect, setdiff, setequal, union
── Attaching packages ───────────────────────────────────────────────────────────────────────────────────────────────────────────────── tidyverse 1.2.1 ──
✔ tibble 1.3.4 ✔ purrr 0.2.4
✔ tidyr 0.7.2 ✔ stringr 1.2.0
✔ readr 1.1.1 ✔ forcats 0.2.0
── Conflicts ──────────────────────────────────────────────────────────────────────────────────────────────────────────────────── tidyverse_conflicts() ──
✖ tidyr::expand() masks Matrix::expand()
✖ dplyr::filter() masks stats::filter()
✖ cowplot::ggsave() masks ggplot2::ggsave()
✖ dplyr::lag() masks stats::lag()
tiss = load_tissue_facs(tissue_of_interest)
[1] "Scaling data matrix"
|
| | 0%
|
|=================================================================| 100%

Visualize top genes in principal components

Later on (in FindClusters and TSNE) you will pick a number of principal components to use. This has the effect of keeping the major directions of variation in the data and, ideally, supressing noise. There is no correct answer to the number to use, but a decent rule of thumb is to go until the plot plateaus.
PCElbowPlot(object = tiss)

Choose the number of principal components to use.
# Set number of principal components.
n.pcs = 12
The clustering is performed based on a nearest neighbors graph. Cells that have similar expression will be joined together. The Louvain algorithm looks for groups of cells with high modularity–more connections within the group than between groups. The resolution parameter determines the scale. Higher resolution will give more clusters, lower resolution will give fewer.
For the top-level clustering, aim to under-cluster instead of over-cluster. It will be easy to subset groups and further analyze them below.
# Set resolution
res.used <- 0.5
tiss <- FindClusters(object = tiss, reduction.type = "pca", dims.use = 1:n.pcs,
resolution = res.used, print.output = 0, save.SNN = TRUE)
We use TSNE solely to visualize the data.
# If cells are too spread out, you can raise the perplexity. If you have few cells, try a lower perplexity (but never less than 10).
tiss <- RunTSNE(object = tiss, dims.use = 1:n.pcs, seed.use = 10, perplexity=30)
TSNEPlot(object = tiss, do.label = T, pt.size = 1.2, label.size = 4)

Check expression of genes useful for indicating cell type. For the islet cells, the mRNA for their specific secretory molecule is a strong signal.
general endocrine: Chga, Isl1 alpha: Gcg, Mafb, Arx, beta: Ins1, Ins2, Mafa, Nkx6-1, Slc2a2, gamma: Ppy delta: Sst, Hhex epsilon: Ghrl ductal: Krt19, Hnf1b immune: Ptprc stellate: Pdgfra, Pdgfrb endothelial: Pecam1, Cdh5, Kdr acinar: Amy2b, Cpa1 other genes of interest: Cpa1, Ptf1a, Neurog3(endocrine progenitor and perhaps adult delta),Pdx1(beta and delta)

Dotplots let you see the intensity of expression and the fraction of cells expressing for each of your genes of interest. The radius shows you the percent of cells in that cluster with at least one read sequenced from that gene. The color level indicates the average Z-score of gene expression for cells in that cluster, where the scaling is done over all cells in the sample.


We can also find all differentially expressed genes marking each cluster. This may take some time.
#clust.markers0 <- FindMarkers(object = tiss, ident.1 = 0, only.pos = TRUE, min.pct = 0.25, thresh.use = 0.25)
#tiss.markers <- FindAllMarkers(object = tiss, only.pos = TRUE, min.pct = 0.25, thresh.use = 0.25)
Display the top markers you computed above.
#tiss.markers %>% group_by(cluster) %>% top_n(5, avg_diff)
Using the markers above, we can confidentaly label many of the clusters:
0: beta 3: acinar 4: ductal 6: beta 7: endothelial 8: immune 9: stellate
The abundance of Ppy and Gcg in clusters 1 and 2 makes them seem like mixtures of alpha and gamma cells. The expression of Sst and Hhex in cluster 5 indicates that it might contain many delta cells, but to get a finer resolution, we subset the data and recompute.
We will add those cell_ontology_class to the dataset.
tiss <- StashIdent(object = tiss, save.name = "cluster.ids")
cluster.ids <- c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9)
free_annotation <- c(
"beta cell",
NA,
NA,
"acinar cell",
"ductal cell",
NA,
"beta cell",
"endothelial cell",
"immune cell",
"stellate cell")
cell_ontology_class <-c(
"type B pancreatic cell",
NA,
NA,
"pancreatic acinar cell",
"pancreatic ductal cell",
NA,
"type B pancreatic cell",
"endothelial cell",
"leukocyte",
"pancreatic stellate cell")
validate_cell_ontology(cell_ontology_class)
cell_ontology_id = convert_to_cell_ontology_id(cell_ontology_class)
tiss@meta.data['free_annotation'] <- as.character(plyr::mapvalues(x = tiss@ident, from = cluster.ids, to = free_annotation))
validate_cell_ontology(cell_ontology_class)
cell_ontology_id = convert_to_cell_ontology_id(cell_ontology_class)
tiss@meta.data['cell_ontology_class'] <- as.character(plyr::mapvalues(x = tiss@ident, from = cluster.ids, to = cell_ontology_class))
tiss@meta.data['cell_ontology_id'] <- as.character(plyr::mapvalues(x = tiss@ident, from = cluster.ids, to = cell_ontology_id))
Checking for batch effects
Color by metadata, like plate barcode, to check for batch effects.
TSNEPlot(object = tiss, do.return = TRUE, group.by = "plate.barcode")

Subcluster
subtiss = SubsetData(tiss, ident.use = c(1,2,5))
subtiss <- subtiss %>% ScaleData() %>%
FindVariableGenes(do.plot = TRUE, x.high.cutoff = Inf, y.cutoff = 0.5) %>%
RunPCA(do.print = FALSE)
[1] "Scaling data matrix"
|
| | 0%
|
|=================================================================| 100%

PCHeatmap(object = subtiss, pc.use = 1:3, cells.use = 500, do.balanced = TRUE, label.columns = FALSE, num.genes = 8)

PCElbowPlot(subtiss)

sub.n.pcs = 8
sub.res.use = 1
subtiss <- subtiss %>% FindClusters(reduction.type = "pca", dims.use = 1:sub.n.pcs,
resolution = sub.res.use, print.output = 0, save.SNN = TRUE) %>%
RunTSNE(dims.use = 1:sub.n.pcs, seed.use = 10, perplexity=30)
TSNEPlot(object = subtiss, do.label = T, pt.size = 1.2, label.size = 4)

Warning in (function (data.use, feature, data.plot, pt.size, pch.use,
cols.use, : All cells have the same value of Ptf1a.



VlnPlot(subtiss, 'Ppy')

table(subtiss@ident)
0 1 2 3 4 5 6 7
128 103 86 79 73 61 40 33
Discover new PP marker genes (negative or positive)
gamma_markers = FindMarkers(subtiss, ident.1 = c(6,7), ident.2 = c(0,1,2,4), test.use = "roc")
gamma_markers = FindMarkers(subtiss, ident.1 = c(6,7), ident.2 = c(0,1,2,4), test.use = "wilcox")
New markers from this test include 1) negative marker genes, aka. those abscent in PP cells or highly abundant in alpha cells ‘Arg1’, ‘Mafb’, ‘Gfra3’, ‘Slc38a5’, ‘Dpp10’,‘Ang’,‘Irx1’, 2) positive marker genes, aka. those abscent in alpha cells or highly abundant in PP cells ‘Cd9’, ‘Spp1’, ‘Tspan8’, ‘Folr1’,‘Vsig1’
gamma_genes_to_check_neg = c('Arg1', 'Mafb', 'Gfra3', 'Slc38a5', 'Dpp10','Ang','Irx1')
gamma_genes_to_check_pos = c('Cd9', 'Spp1', 'Tspan8', 'Folr1','Vsig1')

DotPlot(subtiss, gamma_genes_to_check_neg, col.max = 2.5, plot.legend = T, do.return = T) + coord_flip()



DotPlot(subtiss, gamma_genes_to_check_pos, col.max = 2.5, plot.legend = T, do.return = T) + coord_flip()





From these genes, it appears that the clusters represent:
0: alpha 1: alpha 2: alpha 3: delta 4: alpha 5: delta 6: gamma 7: gamma
The multitude of clusters of each type correspond mostly to individual animals/sexes.
table(FetchData(subtiss, c('mouse.id','ident')) %>% droplevels())
ident
mouse.id 0 1 2 3 4 5 6 7
3_10_M 113 8 1 29 0 12 10 1
3_38_F 4 14 82 4 0 21 0 11
3_39_F 2 80 3 2 0 19 0 21
3_8_M 9 1 0 44 73 9 30 0
sub.cluster.ids <- c(0, 1, 2, 3, 4, 5, 6, 7)
sub.free_annotation <- c("pancreatic A cell", "pancreatic A cell", "pancreatic A cell", "pancreatic D cell", "pancreatic A cell", "pancreatic D cell", "pancreatic PP cell", "pancreatic PP cell")
sub.cell_ontology_class <-c("pancreatic A cell", "pancreatic A cell", "pancreatic A cell", "pancreatic D cell", "pancreatic A cell", "pancreatic D cell", "pancreatic PP cell", "pancreatic PP cell")
validate_cell_ontology(sub.cell_ontology_class)
sub.cell_ontology_id = convert_to_cell_ontology_id(sub.cell_ontology_class)
subtiss@meta.data['free_annotation'] <- as.character(plyr::mapvalues(x = subtiss@ident, from = sub.cluster.ids, to = sub.free_annotation))
validate_cell_ontology(sub.cell_ontology_class)
sub.cell_ontology_id = convert_to_cell_ontology_id(sub.cell_ontology_class)
subtiss@meta.data['free_annotation'] <- as.character(plyr::mapvalues(x = subtiss@ident, from = sub.cluster.ids, to = sub.free_annotation))
subtiss@meta.data['cell_ontology_class'] <- as.character(plyr::mapvalues(x = subtiss@ident, from = sub.cluster.ids, to = sub.cell_ontology_class))
subtiss@meta.data['cell_ontology_id'] <- as.character(plyr::mapvalues(x = subtiss@ident, from = sub.cluster.ids, to = sub.cell_ontology_id))
Add subcluster cell_ontology_class to main cell_ontology_class
sub.cells = rownames(subtiss@meta.data)
tiss@meta.data[sub.cells, 'free_annotation'] = subtiss@meta.data[,'free_annotation']
tiss@meta.data[sub.cells, 'cell_ontology_class'] = subtiss@meta.data[,'cell_ontology_class']
tiss@meta.data[sub.cells, 'cell_ontology_id'] = subtiss@meta.data[,'cell_ontology_id']
Checking for batch effects
Color by metadata, like plate barcode, to check for batch effects.
TSNEPlot(object = tiss, do.return = TRUE, group.by = "plate.barcode")

Final coloring
Color by cell ontology class on the original TSNE.
TSNEPlot(object = tiss, do.return = TRUE, group.by = "cell_ontology_class")

table(tiss@meta.data[["cell_ontology_class"]])
endothelial cell leukocyte pancreatic A cell
66 54 390
pancreatic acinar cell pancreatic D cell pancreatic ductal cell
182 140 161
pancreatic PP cell pancreatic stellate cell type B pancreatic cell
73 49 449
Save the Robject for later
filename = here('00_data_ingest', '04_tissue_robj_generated',
paste0("facs_", tissue_of_interest, "_seurat_tiss.Robj"))
print(filename)
[1] "/home/rstudio/tabula-muris/00_data_ingest/04_tissue_robj_generated/facs_Pancreas_seurat_tiss.Robj"
save(tiss, file=filename)
# To reload a saved object
# filename = here('00_data_ingest', '04_tissue_robj_generated',
# paste0("facs_", tissue_of_interest, "_seurat_tiss.Robj"))
# load(file=filename)
Explore Ppy+ multihormonal cells (to be continued)
FetchData(subtiss, c('Ppy', 'Gcg', 'Arx', 'Irx2', 'Mafb', 'mouse.id', 'plate.barcode', 'ident')) %>%
ggplot(aes(x = Ppy, y = Gcg, color = plate.barcode)) + geom_point()

# It would be interesting to fetch the ids of these cells expressing high Gcg as well as Ppy, and examine their genetic signature.
gammatiss <- RunPCA(subtiss, pc.genes = c('Arg1', 'Mafb', 'Gfra3', 'Slc38a5', 'Dpp10','Ang','Irx1', 'Cd9', 'Spp1', 'Tspan8', 'Folr1','Vsig1'), pcs.compute = 3)
[1] "PC1"
[1] "Mafb" "Ang" "Gfra3" "Irx1" "Dpp10" "Slc38a5" "Arg1"
[8] "Cd9" "Vsig1" "Spp1" "Folr1" "Tspan8"
[1] ""
[1] "Tspan8" "Folr1" "Spp1" "Vsig1" "Cd9" "Arg1" "Slc38a5"
[8] "Dpp10" "Irx1" "Gfra3" "Ang" "Mafb"
[1] ""
[1] ""
[1] "PC2"
[1] "Cd9" "Spp1" "Vsig1" "Mafb" "Irx1" "Ang" "Gfra3"
[8] "Slc38a5" "Folr1" "Tspan8" "Dpp10" "Arg1"
[1] ""
[1] "Arg1" "Dpp10" "Tspan8" "Folr1" "Slc38a5" "Gfra3" "Ang"
[8] "Irx1" "Mafb" "Vsig1" "Spp1" "Cd9"
[1] ""
[1] ""
[1] "PC3"
[1] "Slc38a5" "Spp1" "Folr1" "Gfra3" "Arg1" "Ang" "Tspan8"
[8] "Cd9" "Dpp10" "Mafb" "Irx1" "Vsig1"
[1] ""
[1] "Vsig1" "Irx1" "Mafb" "Dpp10" "Cd9" "Tspan8" "Ang"
[8] "Arg1" "Gfra3" "Folr1" "Spp1" "Slc38a5"
[1] ""
[1] ""
PCHeatmap(object = gammatiss, pc.use = 1:3, cells.use = 500, do.balanced = TRUE, label.columns = FALSE, num.genes = 8)

GenePlot(subtiss, 'Vsig1', 'Gfra3')

Write the cell ontology and free annotations to CSV.
save_annotation_csv(tiss, tissue_of_interest, "facs")
LS0tCnRpdGxlOiAiUGFuY3JlYXMgRkFDUyBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKU3BlY2lmeSB0aGUgdGlzc3VlIG9mIGludGVyZXN0LCBydW4gdGhlIGJvaWxlcnBsYXRlIGNvZGUgd2hpY2ggc2V0cyB1cCB0aGUgZnVuY3Rpb25zIGFuZCBlbnZpcm9ubWVudCwgbG9hZCB0aGUgdGlzc3VlIG9iamVjdC4KCmBgYHtyfQp0aXNzdWVfb2ZfaW50ZXJlc3QgPSAiUGFuY3JlYXMiCgpsaWJyYXJ5KGhlcmUpCnNvdXJjZShoZXJlKCIwMF9kYXRhX2luZ2VzdCIsICIwMl90aXNzdWVfYW5hbHlzaXNfcm1kIiwgImJvaWxlcnBsYXRlLlIiKSkKdGlzcyA9IGxvYWRfdGlzc3VlX2ZhY3ModGlzc3VlX29mX2ludGVyZXN0KQpgYGAKClZpc3VhbGl6ZSB0b3AgZ2VuZXMgaW4gcHJpbmNpcGFsIGNvbXBvbmVudHMKCgoKYGBge3IsIGVjaG89RkFMU0UsIGZpZy5oZWlnaHQ9NCwgZmlnLndpZHRoPTh9ClBDSGVhdG1hcChvYmplY3QgPSB0aXNzLCBwYy51c2UgPSAxOjMsIGNlbGxzLnVzZSA9IDUwMCwgZG8uYmFsYW5jZWQgPSBUUlVFLCBsYWJlbC5jb2x1bW5zID0gRkFMU0UsIG51bS5nZW5lcyA9IDgpCmBgYAoKTGF0ZXIgb24gKGluIEZpbmRDbHVzdGVycyBhbmQgVFNORSkgeW91IHdpbGwgcGljayBhIG51bWJlciBvZiBwcmluY2lwYWwgY29tcG9uZW50cyB0byB1c2UuIFRoaXMgaGFzIHRoZSBlZmZlY3Qgb2Yga2VlcGluZyB0aGUgbWFqb3IgZGlyZWN0aW9ucyBvZiB2YXJpYXRpb24gaW4gdGhlIGRhdGEgYW5kLCBpZGVhbGx5LCBzdXByZXNzaW5nIG5vaXNlLiBUaGVyZSBpcyBubyBjb3JyZWN0IGFuc3dlciB0byB0aGUgbnVtYmVyIHRvIHVzZSwgYnV0IGEgZGVjZW50IHJ1bGUgb2YgdGh1bWIgaXMgdG8gZ28gdW50aWwgdGhlIHBsb3QgcGxhdGVhdXMuCgpgYGB7cn0KUENFbGJvd1Bsb3Qob2JqZWN0ID0gdGlzcykKYGBgCgpDaG9vc2UgdGhlIG51bWJlciBvZiBwcmluY2lwYWwgY29tcG9uZW50cyB0byB1c2UuCmBgYHtyfQojIFNldCBudW1iZXIgb2YgcHJpbmNpcGFsIGNvbXBvbmVudHMuIApuLnBjcyA9IDEyCmBgYAoKClRoZSBjbHVzdGVyaW5nIGlzIHBlcmZvcm1lZCBiYXNlZCBvbiBhIG5lYXJlc3QgbmVpZ2hib3JzIGdyYXBoLiBDZWxscyB0aGF0IGhhdmUgc2ltaWxhciBleHByZXNzaW9uIHdpbGwgYmUgam9pbmVkIHRvZ2V0aGVyLiBUaGUgTG91dmFpbiBhbGdvcml0aG0gbG9va3MgZm9yIGdyb3VwcyBvZiBjZWxscyB3aXRoIGhpZ2ggbW9kdWxhcml0eS0tbW9yZSBjb25uZWN0aW9ucyB3aXRoaW4gdGhlIGdyb3VwIHRoYW4gYmV0d2VlbiBncm91cHMuIFRoZSByZXNvbHV0aW9uIHBhcmFtZXRlciBkZXRlcm1pbmVzIHRoZSBzY2FsZS4gSGlnaGVyIHJlc29sdXRpb24gd2lsbCBnaXZlIG1vcmUgY2x1c3RlcnMsIGxvd2VyIHJlc29sdXRpb24gd2lsbCBnaXZlIGZld2VyLgoKRm9yIHRoZSB0b3AtbGV2ZWwgY2x1c3RlcmluZywgYWltIHRvIHVuZGVyLWNsdXN0ZXIgaW5zdGVhZCBvZiBvdmVyLWNsdXN0ZXIuIEl0IHdpbGwgYmUgZWFzeSB0byBzdWJzZXQgZ3JvdXBzIGFuZCBmdXJ0aGVyIGFuYWx5emUgdGhlbSBiZWxvdy4KCmBgYHtyfQojIFNldCByZXNvbHV0aW9uIApyZXMudXNlZCA8LSAwLjUKCnRpc3MgPC0gRmluZENsdXN0ZXJzKG9iamVjdCA9IHRpc3MsIHJlZHVjdGlvbi50eXBlID0gInBjYSIsIGRpbXMudXNlID0gMTpuLnBjcywgCiAgICByZXNvbHV0aW9uID0gcmVzLnVzZWQsIHByaW50Lm91dHB1dCA9IDAsIHNhdmUuU05OID0gVFJVRSkKYGBgCgpXZSB1c2UgVFNORSBzb2xlbHkgdG8gdmlzdWFsaXplIHRoZSBkYXRhLgoKYGBge3J9CiMgSWYgY2VsbHMgYXJlIHRvbyBzcHJlYWQgb3V0LCB5b3UgY2FuIHJhaXNlIHRoZSBwZXJwbGV4aXR5LiBJZiB5b3UgaGF2ZSBmZXcgY2VsbHMsIHRyeSBhIGxvd2VyIHBlcnBsZXhpdHkgKGJ1dCBuZXZlciBsZXNzIHRoYW4gMTApLgp0aXNzIDwtIFJ1blRTTkUob2JqZWN0ID0gdGlzcywgZGltcy51c2UgPSAxOm4ucGNzLCBzZWVkLnVzZSA9IDEwLCBwZXJwbGV4aXR5PTMwKQpgYGAKCmBgYHtyfQpUU05FUGxvdChvYmplY3QgPSB0aXNzLCBkby5sYWJlbCA9IFQsIHB0LnNpemUgPSAxLjIsIGxhYmVsLnNpemUgPSA0KQpgYGAKCkNoZWNrIGV4cHJlc3Npb24gb2YgZ2VuZXMgdXNlZnVsIGZvciBpbmRpY2F0aW5nIGNlbGwgdHlwZS4gRm9yIHRoZSBpc2xldCBjZWxscywgdGhlIG1STkEgZm9yIHRoZWlyIHNwZWNpZmljIHNlY3JldG9yeSBtb2xlY3VsZSBpcyBhIHN0cm9uZyBzaWduYWwuCgpnZW5lcmFsIGVuZG9jcmluZTogQ2hnYSwgSXNsMQphbHBoYTogR2NnLCBNYWZiLCBBcngsIApiZXRhOiBJbnMxLCBJbnMyLCBNYWZhLCBOa3g2LTEsIFNsYzJhMiwgCmdhbW1hOiBQcHkKZGVsdGE6IFNzdCwgSGhleAplcHNpbG9uOiBHaHJsCmR1Y3RhbDogS3J0MTksIEhuZjFiCmltbXVuZTogUHRwcmMKc3RlbGxhdGU6IFBkZ2ZyYSwgUGRnZnJiCmVuZG90aGVsaWFsOiBQZWNhbTEsIENkaDUsIEtkcgphY2luYXI6IEFteTJiLCBDcGExCm90aGVyIGdlbmVzIG9mIGludGVyZXN0OiBDcGExLCBQdGYxYSwgTmV1cm9nMyhlbmRvY3JpbmUgcHJvZ2VuaXRvciBhbmQgcGVyaGFwcyBhZHVsdCBkZWx0YSksUGR4MShiZXRhIGFuZCBkZWx0YSkKCmBgYHtyLCBlY2hvPUZBTFNFLCBmaWcuaGVpZ2h0PTEyLCBmaWcud2lkdGg9MTJ9CmdlbmVzX3RvX2NoZWNrID0gYygnQ2hnYScsICdJc2wxJywgJ0djZycsICdNYWZiJywgJ0FyeCcsICdJbnMxJywgJ0luczInLCAnTWFmYScsICdOa3g2LTEnLCAnU2xjMmEyJywgJ1NzdCcsICdIaGV4JywgJ1BkeDEnLCAnUHB5JywnR2hybCcsICdLcnQxOScsICdIbmYxYicsICdBbXkyYicsICdDcGExJywgJ1B0ZjFhJywgJ1BkZ2ZyYScsICdQZGdmcmInLCAnUGVjYW0xJywgJ0NkaDUnLCAnS2RyJywnUHRwcmMnLCAnTmV1cm9nMycpCkZlYXR1cmVQbG90KHRpc3MsIGdlbmVzX3RvX2NoZWNrLCBwdC5zaXplID0gMSwgbkNvbCA9IDUsIGNvbHMudXNlID0gYygiZ3JleSIsICJibHVlIikpCmBgYAoKRG90cGxvdHMgbGV0IHlvdSBzZWUgdGhlIGludGVuc2l0eSBvZiBleHByZXNzaW9uIGFuZCB0aGUgZnJhY3Rpb24gb2YgY2VsbHMgZXhwcmVzc2luZyBmb3IgZWFjaCBvZiB5b3VyIGdlbmVzIG9mIGludGVyZXN0LgpUaGUgcmFkaXVzIHNob3dzIHlvdSB0aGUgcGVyY2VudCBvZiBjZWxscyBpbiB0aGF0IGNsdXN0ZXIgd2l0aCBhdCBsZWFzdCBvbmUgcmVhZCBzZXF1ZW5jZWQgZnJvbSB0aGF0IGdlbmUuIFRoZSBjb2xvciBsZXZlbCBpbmRpY2F0ZXMgdGhlIGF2ZXJhZ2UgWi1zY29yZSBvZiBnZW5lIGV4cHJlc3Npb24gZm9yIGNlbGxzIGluIHRoYXQgY2x1c3Rlciwgd2hlcmUgdGhlIHNjYWxpbmcgaXMgZG9uZSBvdmVyIGFsbCBjZWxscyBpbiB0aGUgc2FtcGxlLgoKYGBge3IsIGVjaG89RkFMU0UsIGZpZy5oZWlnaHQ9OCwgZmlnLndpZHRoPTEwfQpEb3RQbG90KHRpc3MsIGdlbmVzX3RvX2NoZWNrLCBwbG90LmxlZ2VuZCA9IFQsIGNvbC5tYXggPSAyLjUsIGRvLnJldHVybiA9IFQpICsgY29vcmRfZmxpcCgpCmBgYAoKV2UgY2FuIGFsc28gZmluZCBhbGwgZGlmZmVyZW50aWFsbHkgZXhwcmVzc2VkIGdlbmVzIG1hcmtpbmcgZWFjaCBjbHVzdGVyLiBUaGlzIG1heSB0YWtlIHNvbWUgdGltZS4KCmBgYHtyfQojY2x1c3QubWFya2VyczAgPC0gRmluZE1hcmtlcnMob2JqZWN0ID0gdGlzcywgaWRlbnQuMSA9IDAsIG9ubHkucG9zID0gVFJVRSwgbWluLnBjdCA9IDAuMjUsIHRocmVzaC51c2UgPSAwLjI1KQojdGlzcy5tYXJrZXJzIDwtIEZpbmRBbGxNYXJrZXJzKG9iamVjdCA9IHRpc3MsIG9ubHkucG9zID0gVFJVRSwgbWluLnBjdCA9IDAuMjUsIHRocmVzaC51c2UgPSAwLjI1KQpgYGAKCkRpc3BsYXkgdGhlIHRvcCBtYXJrZXJzIHlvdSBjb21wdXRlZCBhYm92ZS4KYGBge3J9CiN0aXNzLm1hcmtlcnMgJT4lIGdyb3VwX2J5KGNsdXN0ZXIpICU+JSB0b3Bfbig1LCBhdmdfZGlmZikKYGBgCgpVc2luZyB0aGUgbWFya2VycyBhYm92ZSwgd2UgY2FuIGNvbmZpZGVudGFseSBsYWJlbCBtYW55IG9mIHRoZSBjbHVzdGVyczoKCjA6IGJldGEKMzogYWNpbmFyCjQ6IGR1Y3RhbAo2OiBiZXRhCjc6IGVuZG90aGVsaWFsCjg6IGltbXVuZQo5OiBzdGVsbGF0ZQoKVGhlIGFidW5kYW5jZSBvZiBQcHkgYW5kIEdjZyBpbiBjbHVzdGVycyAxIGFuZCAyIG1ha2VzIHRoZW0gc2VlbSBsaWtlIG1peHR1cmVzIG9mIGFscGhhIGFuZCBnYW1tYSBjZWxscy4gVGhlIGV4cHJlc3Npb24gb2YgU3N0IGFuZCBIaGV4IGluIGNsdXN0ZXIgNQppbmRpY2F0ZXMgdGhhdCBpdCBtaWdodCBjb250YWluIG1hbnkgZGVsdGEgY2VsbHMsIGJ1dCB0byBnZXQgYSBmaW5lciByZXNvbHV0aW9uLCB3ZSBzdWJzZXQgdGhlIGRhdGEgYW5kIHJlY29tcHV0ZS4KCldlIHdpbGwgYWRkIHRob3NlIGNlbGxfb250b2xvZ3lfY2xhc3MgdG8gdGhlIGRhdGFzZXQuCgpgYGB7cn0KdGlzcyA8LSBTdGFzaElkZW50KG9iamVjdCA9IHRpc3MsIHNhdmUubmFtZSA9ICJjbHVzdGVyLmlkcyIpCgpjbHVzdGVyLmlkcyA8LSBjKDAsIDEsIDIsIDMsIDQsIDUsIDYsIDcsIDgsIDkpCgpmcmVlX2Fubm90YXRpb24gPC0gYygKICAiYmV0YSBjZWxsIiwgCiAgIE5BLCAKICAgTkEsIAogICAiYWNpbmFyIGNlbGwiLCAKICAgImR1Y3RhbCBjZWxsIiwgCiAgIE5BLAogICAiYmV0YSBjZWxsIiwgCiAgICJlbmRvdGhlbGlhbCBjZWxsIiwgCiAgICJpbW11bmUgY2VsbCIsIAogICAic3RlbGxhdGUgY2VsbCIpCgpjZWxsX29udG9sb2d5X2NsYXNzIDwtYygKICAidHlwZSBCIHBhbmNyZWF0aWMgY2VsbCIsIAogICBOQSwgCiAgIE5BLCAKICAgInBhbmNyZWF0aWMgYWNpbmFyIGNlbGwiLCAKICAgInBhbmNyZWF0aWMgZHVjdGFsIGNlbGwiLCAKICAgTkEsIAogICAidHlwZSBCIHBhbmNyZWF0aWMgY2VsbCIsIAogICAiZW5kb3RoZWxpYWwgY2VsbCIsIAogICAibGV1a29jeXRlIiwgCiAgICJwYW5jcmVhdGljIHN0ZWxsYXRlIGNlbGwiKQoKdmFsaWRhdGVfY2VsbF9vbnRvbG9neShjZWxsX29udG9sb2d5X2NsYXNzKQpjZWxsX29udG9sb2d5X2lkID0gY29udmVydF90b19jZWxsX29udG9sb2d5X2lkKGNlbGxfb250b2xvZ3lfY2xhc3MpCgp0aXNzQG1ldGEuZGF0YVsnZnJlZV9hbm5vdGF0aW9uJ10gPC0gYXMuY2hhcmFjdGVyKHBseXI6Om1hcHZhbHVlcyh4ID0gdGlzc0BpZGVudCwgZnJvbSA9IGNsdXN0ZXIuaWRzLCB0byA9IGZyZWVfYW5ub3RhdGlvbikpCnZhbGlkYXRlX2NlbGxfb250b2xvZ3koY2VsbF9vbnRvbG9neV9jbGFzcykKY2VsbF9vbnRvbG9neV9pZCA9IGNvbnZlcnRfdG9fY2VsbF9vbnRvbG9neV9pZChjZWxsX29udG9sb2d5X2NsYXNzKQoKdGlzc0BtZXRhLmRhdGFbJ2NlbGxfb250b2xvZ3lfY2xhc3MnXSA8LSBhcy5jaGFyYWN0ZXIocGx5cjo6bWFwdmFsdWVzKHggPSB0aXNzQGlkZW50LCBmcm9tID0gY2x1c3Rlci5pZHMsIHRvID0gY2VsbF9vbnRvbG9neV9jbGFzcykpCnRpc3NAbWV0YS5kYXRhWydjZWxsX29udG9sb2d5X2lkJ10gPC0gYXMuY2hhcmFjdGVyKHBseXI6Om1hcHZhbHVlcyh4ID0gdGlzc0BpZGVudCwgZnJvbSA9IGNsdXN0ZXIuaWRzLCB0byA9IGNlbGxfb250b2xvZ3lfaWQpKQpgYGAKCiMjIENoZWNraW5nIGZvciBiYXRjaCBlZmZlY3RzCgpDb2xvciBieSBtZXRhZGF0YSwgbGlrZSBwbGF0ZSBiYXJjb2RlLCB0byBjaGVjayBmb3IgYmF0Y2ggZWZmZWN0cy4KYGBge3J9ClRTTkVQbG90KG9iamVjdCA9IHRpc3MsIGRvLnJldHVybiA9IFRSVUUsIGdyb3VwLmJ5ID0gInBsYXRlLmJhcmNvZGUiKQpgYGAKCiMjIFN1YmNsdXN0ZXIKCmBgYHtyfQpzdWJ0aXNzID0gU3Vic2V0RGF0YSh0aXNzLCBpZGVudC51c2UgPSBjKDEsMiw1KSkKYGBgCgpgYGB7cn0Kc3VidGlzcyA8LSBzdWJ0aXNzICU+JSBTY2FsZURhdGEoKSAlPiUgCiAgRmluZFZhcmlhYmxlR2VuZXMoZG8ucGxvdCA9IFRSVUUsIHguaGlnaC5jdXRvZmYgPSBJbmYsIHkuY3V0b2ZmID0gMC41KSAlPiUKICBSdW5QQ0EoZG8ucHJpbnQgPSBGQUxTRSkKYGBgCgpgYGB7cn0KUENIZWF0bWFwKG9iamVjdCA9IHN1YnRpc3MsIHBjLnVzZSA9IDE6MywgY2VsbHMudXNlID0gNTAwLCBkby5iYWxhbmNlZCA9IFRSVUUsIGxhYmVsLmNvbHVtbnMgPSBGQUxTRSwgbnVtLmdlbmVzID0gOCkKUENFbGJvd1Bsb3Qoc3VidGlzcykKYGBgCgoKYGBge3J9CnN1Yi5uLnBjcyA9IDgKc3ViLnJlcy51c2UgPSAxCnN1YnRpc3MgPC0gc3VidGlzcyAlPiUgRmluZENsdXN0ZXJzKHJlZHVjdGlvbi50eXBlID0gInBjYSIsIGRpbXMudXNlID0gMTpzdWIubi5wY3MsIAogICAgcmVzb2x1dGlvbiA9IHN1Yi5yZXMudXNlLCBwcmludC5vdXRwdXQgPSAwLCBzYXZlLlNOTiA9IFRSVUUpICU+JQogICAgUnVuVFNORShkaW1zLnVzZSA9IDE6c3ViLm4ucGNzLCBzZWVkLnVzZSA9IDEwLCBwZXJwbGV4aXR5PTMwKQoKVFNORVBsb3Qob2JqZWN0ID0gc3VidGlzcywgZG8ubGFiZWwgPSBULCBwdC5zaXplID0gMS4yLCBsYWJlbC5zaXplID0gNCkKCmBgYAoKYGBge3IsIGVjaG89RkFMU0UsIGZpZy5oZWlnaHQ9MTIsIGZpZy53aWR0aD04fQpGZWF0dXJlUGxvdChzdWJ0aXNzLCBnZW5lc190b19jaGVjaywgbkNvbCA9IDUsIGNvbHMudXNlID0gYygiZ3JleSIsICJibHVlIikpCmBgYAoKYGBge3IsIGVjaG89RkFMU0UsIGZpZy5oZWlnaHQ9OCwgZmlnLndpZHRoPTEwfQpEb3RQbG90KHN1YnRpc3MsIGdlbmVzX3RvX2NoZWNrLCBjb2wubWF4ID0gMi41LCBwbG90LmxlZ2VuZCA9IFQsIGRvLnJldHVybiA9IFQpICsgY29vcmRfZmxpcCgpCmBgYAoKCmBgYHtyfQpWbG5QbG90KHN1YnRpc3MsICdQcHknKQpgYGAKCmBgYHtyfQp0YWJsZShzdWJ0aXNzQGlkZW50KQpgYGAKCkRpc2NvdmVyIG5ldyBQUCBtYXJrZXIgZ2VuZXMgKG5lZ2F0aXZlIG9yIHBvc2l0aXZlKQpgYGB7cn0KZ2FtbWFfbWFya2VycyA9IEZpbmRNYXJrZXJzKHN1YnRpc3MsIGlkZW50LjEgPSBjKDYsNyksIGlkZW50LjIgPSBjKDAsMSwyLDQpLCB0ZXN0LnVzZSA9ICJyb2MiKQpgYGAKCmBgYHtyfQpnYW1tYV9tYXJrZXJzID0gRmluZE1hcmtlcnMoc3VidGlzcywgaWRlbnQuMSA9IGMoNiw3KSwgaWRlbnQuMiA9IGMoMCwxLDIsNCksIHRlc3QudXNlID0gIndpbGNveCIpCmBgYApOZXcgbWFya2VycyBmcm9tIHRoaXMgdGVzdCBpbmNsdWRlCjEpIG5lZ2F0aXZlIG1hcmtlciBnZW5lcywgYWthLiB0aG9zZSBhYnNjZW50IGluIFBQIGNlbGxzIG9yIGhpZ2hseSBhYnVuZGFudCBpbiBhbHBoYSBjZWxscwonQXJnMScsICdNYWZiJywgJ0dmcmEzJywgJ1NsYzM4YTUnLCAnRHBwMTAnLCdBbmcnLCdJcngxJywgCjIpIHBvc2l0aXZlIG1hcmtlciBnZW5lcywgYWthLiB0aG9zZSBhYnNjZW50IGluIGFscGhhIGNlbGxzIG9yIGhpZ2hseSBhYnVuZGFudCBpbiBQUCBjZWxscwonQ2Q5JywgJ1NwcDEnLCAnVHNwYW44JywgJ0ZvbHIxJywnVnNpZzEnCmBgYHtyfQpnYW1tYV9nZW5lc190b19jaGVja19uZWcgPSBjKCdBcmcxJywgJ01hZmInLCAnR2ZyYTMnLCAnU2xjMzhhNScsICdEcHAxMCcsJ0FuZycsJ0lyeDEnKQpnYW1tYV9nZW5lc190b19jaGVja19wb3MgPSBjKCdDZDknLCAnU3BwMScsICdUc3BhbjgnLCAnRm9scjEnLCdWc2lnMScpCmBgYAoKYGBge3IsIGVjaG89RkFMU0UsIGZpZy5oZWlnaHQ9NCwgZmlnLndpZHRoPTh9CkZlYXR1cmVQbG90KHN1YnRpc3MsIGdhbW1hX2dlbmVzX3RvX2NoZWNrX25lZywgbkNvbCA9IDUsIGNvbHMudXNlID0gYygiZ3JleSIsICJibHVlIikpCmBgYAoKCmBgYHtyfQpEb3RQbG90KHN1YnRpc3MsIGdhbW1hX2dlbmVzX3RvX2NoZWNrX25lZywgY29sLm1heCA9IDIuNSwgcGxvdC5sZWdlbmQgPSBULCBkby5yZXR1cm4gPSBUKSArIGNvb3JkX2ZsaXAoKQpgYGAKCmBgYHtyLCBlY2hvPUZBTFNFLCBmaWcuaGVpZ2h0PTIsIGZpZy53aWR0aD04fQpGZWF0dXJlUGxvdChzdWJ0aXNzLCBnYW1tYV9nZW5lc190b19jaGVja19wb3MsIG5Db2wgPSA1LCBjb2xzLnVzZSA9IGMoImdyZXkiLCAiYmx1ZSIpKQpgYGAKCmBgYHtyfQpEb3RQbG90KHN1YnRpc3MsIGdhbW1hX2dlbmVzX3RvX2NoZWNrX3BvcywgY29sLm1heCA9IDIuNSwgcGxvdC5sZWdlbmQgPSBULCBkby5yZXR1cm4gPSBUKSArIGNvb3JkX2ZsaXAoKQpgYGAKYGBge3IsIGVjaG89RkFMU0UsIGZpZy5oZWlnaHQ9NiwgZmlnLndpZHRoPTh9CnN1YnRpc3NfZ2VuZXNfdG9fY2hlY2sgPSBjKCdDaGdhJywgJ0lzbDEnLCAnR2NnJywgJ01hZmInLCAnQXJ4JywgJ1NzdCcsICdIaGV4JywgJ1BkeDEnLCAnUHB5JywnR2hybCcsJ0dmcmEzJywgJ1NsYzM4YTUnLCAnRHBwMTAnLCdBbmcnLCdJcngxJywnQ2Q5JywgJ1NwcDEnLCAnVHNwYW44JywgJ0ZvbHIxJywnVnNpZzEnKQpGZWF0dXJlUGxvdChzdWJ0aXNzLCBzdWJ0aXNzX2dlbmVzX3RvX2NoZWNrLCBuQ29sID0gNSwgY29scy51c2UgPSBjKCJncmV5IiwgImJsdWUiKSkKYGBgCgpgYGB7ciwgZWNobz1GQUxTRSwgZmlnLmhlaWdodD04LCBmaWcud2lkdGg9MTB9CkRvdFBsb3Qoc3VidGlzcywgc3VidGlzc19nZW5lc190b19jaGVjaywgY29sLm1heCA9IDIuNSwgcGxvdC5sZWdlbmQgPSBULCBkby5yZXR1cm4gPSBUKSArIGNvb3JkX2ZsaXAoKQpgYGAKCkZyb20gdGhlc2UgZ2VuZXMsIGl0IGFwcGVhcnMgdGhhdCB0aGUgY2x1c3RlcnMgcmVwcmVzZW50OgoKMDogYWxwaGEKMTogYWxwaGEKMjogYWxwaGEKMzogZGVsdGEKNDogYWxwaGEKNTogZGVsdGEKNjogZ2FtbWEKNzogZ2FtbWEKClRoZSBtdWx0aXR1ZGUgb2YgY2x1c3RlcnMgb2YgZWFjaCB0eXBlIGNvcnJlc3BvbmQgbW9zdGx5IHRvIGluZGl2aWR1YWwgYW5pbWFscy9zZXhlcy4KCmBgYHtyfQp0YWJsZShGZXRjaERhdGEoc3VidGlzcywgYygnbW91c2UuaWQnLCdpZGVudCcpKSAlPiUgZHJvcGxldmVscygpKQpgYGAKCmBgYHtyfQpzdWIuY2x1c3Rlci5pZHMgPC0gYygwLCAxLCAyLCAzLCA0LCA1LCA2LCA3KQpzdWIuZnJlZV9hbm5vdGF0aW9uIDwtIGMoInBhbmNyZWF0aWMgQSBjZWxsIiwgInBhbmNyZWF0aWMgQSBjZWxsIiwgInBhbmNyZWF0aWMgQSBjZWxsIiwgInBhbmNyZWF0aWMgRCBjZWxsIiwgInBhbmNyZWF0aWMgQSBjZWxsIiwgInBhbmNyZWF0aWMgRCBjZWxsIiwgInBhbmNyZWF0aWMgUFAgY2VsbCIsICJwYW5jcmVhdGljIFBQIGNlbGwiKQpzdWIuY2VsbF9vbnRvbG9neV9jbGFzcyA8LWMoInBhbmNyZWF0aWMgQSBjZWxsIiwgInBhbmNyZWF0aWMgQSBjZWxsIiwgInBhbmNyZWF0aWMgQSBjZWxsIiwgInBhbmNyZWF0aWMgRCBjZWxsIiwgInBhbmNyZWF0aWMgQSBjZWxsIiwgInBhbmNyZWF0aWMgRCBjZWxsIiwgInBhbmNyZWF0aWMgUFAgY2VsbCIsICJwYW5jcmVhdGljIFBQIGNlbGwiKQoKdmFsaWRhdGVfY2VsbF9vbnRvbG9neShzdWIuY2VsbF9vbnRvbG9neV9jbGFzcykKc3ViLmNlbGxfb250b2xvZ3lfaWQgPSBjb252ZXJ0X3RvX2NlbGxfb250b2xvZ3lfaWQoc3ViLmNlbGxfb250b2xvZ3lfY2xhc3MpCgpzdWJ0aXNzQG1ldGEuZGF0YVsnZnJlZV9hbm5vdGF0aW9uJ10gPC0gYXMuY2hhcmFjdGVyKHBseXI6Om1hcHZhbHVlcyh4ID0gc3VidGlzc0BpZGVudCwgZnJvbSA9IHN1Yi5jbHVzdGVyLmlkcywgdG8gPSBzdWIuZnJlZV9hbm5vdGF0aW9uKSkKdmFsaWRhdGVfY2VsbF9vbnRvbG9neShzdWIuY2VsbF9vbnRvbG9neV9jbGFzcykKc3ViLmNlbGxfb250b2xvZ3lfaWQgPSBjb252ZXJ0X3RvX2NlbGxfb250b2xvZ3lfaWQoc3ViLmNlbGxfb250b2xvZ3lfY2xhc3MpCgpzdWJ0aXNzQG1ldGEuZGF0YVsnZnJlZV9hbm5vdGF0aW9uJ10gPC0gYXMuY2hhcmFjdGVyKHBseXI6Om1hcHZhbHVlcyh4ID0gc3VidGlzc0BpZGVudCwgZnJvbSA9IHN1Yi5jbHVzdGVyLmlkcywgdG8gPSBzdWIuZnJlZV9hbm5vdGF0aW9uKSkKc3VidGlzc0BtZXRhLmRhdGFbJ2NlbGxfb250b2xvZ3lfY2xhc3MnXSA8LSBhcy5jaGFyYWN0ZXIocGx5cjo6bWFwdmFsdWVzKHggPSBzdWJ0aXNzQGlkZW50LCBmcm9tID0gc3ViLmNsdXN0ZXIuaWRzLCB0byA9IHN1Yi5jZWxsX29udG9sb2d5X2NsYXNzKSkKc3VidGlzc0BtZXRhLmRhdGFbJ2NlbGxfb250b2xvZ3lfaWQnXSA8LSBhcy5jaGFyYWN0ZXIocGx5cjo6bWFwdmFsdWVzKHggPSBzdWJ0aXNzQGlkZW50LCBmcm9tID0gc3ViLmNsdXN0ZXIuaWRzLCB0byA9IHN1Yi5jZWxsX29udG9sb2d5X2lkKSkKYGBgCgojIyBBZGQgc3ViY2x1c3RlciBjZWxsX29udG9sb2d5X2NsYXNzIHRvIG1haW4gY2VsbF9vbnRvbG9neV9jbGFzcwoKYGBge3J9CnN1Yi5jZWxscyA9IHJvd25hbWVzKHN1YnRpc3NAbWV0YS5kYXRhKQoKdGlzc0BtZXRhLmRhdGFbc3ViLmNlbGxzLCAnZnJlZV9hbm5vdGF0aW9uJ10gPSBzdWJ0aXNzQG1ldGEuZGF0YVssJ2ZyZWVfYW5ub3RhdGlvbiddCnRpc3NAbWV0YS5kYXRhW3N1Yi5jZWxscywgJ2NlbGxfb250b2xvZ3lfY2xhc3MnXSA9IHN1YnRpc3NAbWV0YS5kYXRhWywnY2VsbF9vbnRvbG9neV9jbGFzcyddCnRpc3NAbWV0YS5kYXRhW3N1Yi5jZWxscywgJ2NlbGxfb250b2xvZ3lfaWQnXSA9IHN1YnRpc3NAbWV0YS5kYXRhWywnY2VsbF9vbnRvbG9neV9pZCddCmBgYAoKCiMjIENoZWNraW5nIGZvciBiYXRjaCBlZmZlY3RzCgpDb2xvciBieSBtZXRhZGF0YSwgbGlrZSBwbGF0ZSBiYXJjb2RlLCB0byBjaGVjayBmb3IgYmF0Y2ggZWZmZWN0cy4KYGBge3J9ClRTTkVQbG90KG9iamVjdCA9IHRpc3MsIGRvLnJldHVybiA9IFRSVUUsIGdyb3VwLmJ5ID0gInBsYXRlLmJhcmNvZGUiKQpgYGAKCiMgRmluYWwgY29sb3JpbmcKCkNvbG9yIGJ5IGNlbGwgb250b2xvZ3kgY2xhc3Mgb24gdGhlIG9yaWdpbmFsIFRTTkUuCgpgYGB7cn0KVFNORVBsb3Qob2JqZWN0ID0gdGlzcywgZG8ucmV0dXJuID0gVFJVRSwgZ3JvdXAuYnkgPSAiY2VsbF9vbnRvbG9neV9jbGFzcyIpCnRhYmxlKHRpc3NAbWV0YS5kYXRhW1siY2VsbF9vbnRvbG9neV9jbGFzcyJdXSkKYGBgCgojIFNhdmUgdGhlIFJvYmplY3QgZm9yIGxhdGVyCgpgYGB7cn0KZmlsZW5hbWUgPSBoZXJlKCcwMF9kYXRhX2luZ2VzdCcsICcwNF90aXNzdWVfcm9ial9nZW5lcmF0ZWQnLCAKICAgICAgICAgICAgICAgICAgICAgcGFzdGUwKCJmYWNzXyIsIHRpc3N1ZV9vZl9pbnRlcmVzdCwgIl9zZXVyYXRfdGlzcy5Sb2JqIikpCnByaW50KGZpbGVuYW1lKQpzYXZlKHRpc3MsIGZpbGU9ZmlsZW5hbWUpCmBgYAoKYGBge3J9CiMgVG8gcmVsb2FkIGEgc2F2ZWQgb2JqZWN0CiMgZmlsZW5hbWUgPSBoZXJlKCcwMF9kYXRhX2luZ2VzdCcsICcwNF90aXNzdWVfcm9ial9nZW5lcmF0ZWQnLCAKIyAgICAgICAgICAgICAgICAgICAgICBwYXN0ZTAoImZhY3NfIiwgdGlzc3VlX29mX2ludGVyZXN0LCAiX3NldXJhdF90aXNzLlJvYmoiKSkKIyBsb2FkKGZpbGU9ZmlsZW5hbWUpCmBgYAoKCiMgRXhwb3J0IHRoZSBmaW5hbCBtZXRhZGF0YQoKU28gdGhhdCBCaW9odWIgY2FuIGVhc2lseSBjb21iaW5lIGFsbCB5b3VyIGNlbGxfb250b2xvZ3lfY2xhc3MsIHBsZWFzZSBleHBvcnQgdGhlbSBhcyBhIHNpbXBsZSBjc3YuCgpgYGB7cn0KaGVhZCh0aXNzQG1ldGEuZGF0YSkKYGBgCgpgYGB7cn0KZmlsZW5hbWUgPSBoZXJlKCcwMF9kYXRhX2luZ2VzdCcsICcwM190aXNzdWVfYW5ub3RhdGlvbl9jc3YnLCAKICAgICAgICAgICAgICAgICAgICAgcGFzdGUwKHRpc3N1ZV9vZl9pbnRlcmVzdCwgIl9hbm5vdGF0aW9uLmNzdiIpKQp3cml0ZS5jc3YoRmV0Y2hEYXRhKHRpc3MsIGMoJ3BsYXRlLmJhcmNvZGUnLCdjZWxsX29udG9sb2d5X2NsYXNzJywnY2VsbF9vbnRvbG9neV9pZCcsICdmcmVlX2Fubm90YXRpb24nLCAndFNORV8xJywgJ3RTTkVfMicpKSwgZmlsZT1maWxlbmFtZSkKYGBgCgoKIyBFeHBsb3JlIFBweSsgbXVsdGlob3Jtb25hbCBjZWxscyAodG8gYmUgY29udGludWVkKQoKCmBgYHtyfQpGZXRjaERhdGEoc3VidGlzcywgYygnUHB5JywgJ0djZycsICdBcngnLCAnSXJ4MicsICdNYWZiJywgJ21vdXNlLmlkJywgJ3BsYXRlLmJhcmNvZGUnLCAnaWRlbnQnKSkgJT4lIAogIGdncGxvdChhZXMoeCA9IFBweSwgeSA9IEdjZywgY29sb3IgPSBwbGF0ZS5iYXJjb2RlKSkgKyBnZW9tX3BvaW50KCkKIyBJdCB3b3VsZCBiZSBpbnRlcmVzdGluZyB0byBmZXRjaCB0aGUgaWRzIG9mIHRoZXNlIGNlbGxzIGV4cHJlc3NpbmcgaGlnaCBHY2cgYXMgd2VsbCBhcyBQcHksIGFuZCBleGFtaW5lIHRoZWlyIGdlbmV0aWMgc2lnbmF0dXJlLgpgYGAKCgpgYGB7cn0KZ2FtbWF0aXNzIDwtIFJ1blBDQShzdWJ0aXNzLCBwYy5nZW5lcyA9IGMoJ0FyZzEnLCAnTWFmYicsICdHZnJhMycsICdTbGMzOGE1JywgJ0RwcDEwJywnQW5nJywnSXJ4MScsICdDZDknLCAnU3BwMScsICdUc3BhbjgnLCAnRm9scjEnLCdWc2lnMScpLCBwY3MuY29tcHV0ZSA9IDMpCmBgYAoKYGBge3J9ClBDSGVhdG1hcChvYmplY3QgPSBnYW1tYXRpc3MsIHBjLnVzZSA9IDE6MywgY2VsbHMudXNlID0gNTAwLCBkby5iYWxhbmNlZCA9IFRSVUUsIGxhYmVsLmNvbHVtbnMgPSBGQUxTRSwgbnVtLmdlbmVzID0gOCkKYGBgCgpgYGB7cn0KR2VuZVBsb3Qoc3VidGlzcywgJ1ZzaWcxJywgJ0dmcmEzJykKYGBgCgpXcml0ZSB0aGUgY2VsbCBvbnRvbG9neSBhbmQgZnJlZSBhbm5vdGF0aW9ucyB0byBDU1YuCgpgYGB7cn0Kc2F2ZV9hbm5vdGF0aW9uX2Nzdih0aXNzLCB0aXNzdWVfb2ZfaW50ZXJlc3QsICJmYWNzIikKYGBgCg==